home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 179 / 179.d81 / b.quick juke (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  82 lines
  1. 8 poke56,56:clr:poke53371,0
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53280,0:print""
  4. 30 sys57812"qsjuke mouse 2.1",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 32 sys57812"qs juke font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 34 sys57812"qs juke driver",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 40 ml=64*256:mv=ml+309:v=53248:pokemv+1,158:pokemv+12,57:pokemv+11,193
  8. 42 dr=49152:sysdr+12:sysdr+15
  9. 44 pokev+21,0:sysml:sysml+6,14*64
  10. 50 dq$(0)="[\[157][157]_<":dq$(1)="=>[157][157]]^"
  11. 70 print"[147]":poke53272,31:sysml+126,0,38,0,24,254,255,14,4
  12. 78 sysml+30,3,36,3,7,255,6
  13. 80 sysml+30,2,35,2,6,160,3+16
  14. 100 gosub600
  15. 112 sysml+39,160
  16. 114 fori=0to1:sysml+30,34,37,12+i*7,15+i*7,255,6
  17. 116 sysml+30,33,36,11+i*7,14+i*7,255,8+16:print"[158]";:sysml+12,34,12+i*7,dq$(i)
  18. 118 sysml+15,2+i,33,36,12+i*5,15+i*5:next
  19. 120 sysml+12,0,24,"[155] [193][204][204] [207][206][167] [193][204][204] [207][198][198][167] [212][207][199][199][204][197] [193][204][204][167] [206][197][215] [196][201][211][203] "
  20. 122 sysml+15,7,0,7,24,24
  21. 124 sysml+15,8,8,16,24,24
  22. 126 sysml+15,9,17,28,24,24
  23. 128 sysml+15,10,29,39,24,24
  24. 132 sysml+15,4,0,8,0,0
  25. 134 sysml+15,11,9,16,0,0
  26. 136 sysml+15,12,17,29,0,0
  27. 138 sysml+15,13,30,39,0,0
  28. 150 gosub800
  29. 160 pokev+21,0:sysml+207,"$:q.*",dv,140*256,144:pokev+21,3
  30. 162 ifn%=0thengosub700:gosub300:goto160
  31. 164 gosub800
  32. 166 sysml+204,140*256
  33. 168 sysml+30,2,31,9,22,255,8+16
  34. 170 sysml+225,3+128,255,10,21,2,3,12,1,7,1,140*256,"",""
  35. 172 ifsl%=0then160
  36. 180 forq=1tosl%
  37. 182 sysml+192,q
  38. 184 pokev+21,0:sysml+201,f$,dv,100*256:pokev+21,3
  39. 186 sysml+30,2,35,2,6,160,3+16
  40. 188 print"[146][158]";:sysml+198,19-(len(f$)/2),4,q
  41. 190 gosub700
  42. 198 sysdr,100,1
  43. 200 sysml+9
  44. 208 ifpeek(dr+46)=0then220
  45. 210 ifcr%=11thensysdr+6:q=sl%:goto220
  46. 212 ifcr%=12thengosub300:q=sl%:next:gosub600:goto150
  47. 214 ifcr%=13thensysml+3:sysdr+6:sysdr+18:pokev+21,0:print"[147]":goto40000
  48. 216 ifl2%thensysdr+6:goto220
  49. 218 goto200
  50. 220 next
  51. 230 gosub600
  52. 240 goto170
  53. 300 sysdr+6
  54. 310 sysml+51,26+128,0,15,15,2,""
  55. 312 dv=val(w$)
  56. 314 open15,dv,15:close15
  57. 316 ifst=-128then310
  58. 318 return
  59. 600 sysml+12,3,3,"[146][158][176][192][174] [178] [178] [178] [176][192][174] [178][176][189]   [178] [178] [178] [178][176][189][176][192][174]
  60. 602 [158]ml[170]12,3,4,"for(NULL) (NULL) (NULL) (NULL) (NULL) (NULL)   -<    (NULL) (NULL) (NULL) -< -<
  61. 604 sysml+12,3,5,"[149][173][192][168] [173][192][189] [177] [173][192][189] [177][173][174] [173][192][189] [173][192][189] [177][173][174][173][192][189]
  62. 606 [142]
  63. 700 [158]ml[170]12,0,0,"list   (NULL)(NULL)atn(NULL) then  (NULL)(NULL)(NULL)(NULL) then  str$(NULL)right$(NULL)val:    then  (NULL)(NULL)right$(NULL)   "
  64. 710 [158]ml[170]12,25,0,[196](dv)
  65. 720 [142]
  66. 800 [158]ml[170]12,0,0,"list   (NULL)(NULL)atn(NULL) then  (NULL)(NULL)(NULL)(NULL) thenpoke  str$(NULL)right$(NULL)val:    then  (NULL)(NULL)right$(NULL)   "
  67. 810 [158]ml[170]12,25,0,[196](dv)
  68. 820 [142]
  69. 999 [137]999
  70. 10000 d[178][194](186):n$[178]"0:b.quick juke":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  71. 40000 [151]53269,0
  72. 40002 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  73. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  74. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  75. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  76. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  77. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  78. 40060 [130]:[142]
  79. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  80. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  81. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  82.